home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 441 / vdisrc12 / vdicomn.s < prev    next >
Text File  |  1990-11-23  |  1KB  |  31 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* VDIFAST Public Domain VDI bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8. ;*************************************************************************
  9. ;*
  10. ;* Common module to call VDI then return to user-program.
  11. ;*  This routine is entered via 'jmp' and does NOT return to the binding
  12. ;*  routine that calls it.
  13. ;*
  14. ;*  This is used by all bindings which return a single int from intout[0]
  15. ;*  (more specifically, from -2(a6), or which return no value.  In the
  16. ;*  latter case, we still return the word from -2(a6), but the user 
  17. ;*  shouldn't care what it is.
  18. ;* 
  19. ;*************************************************************************
  20.  
  21.           .globl    vdicall        ; The whole world sees us.
  22.  
  23. vdicall:
  24.           moveq.l   #$73,d0
  25.           move.l    sp,d1
  26.           trap      #2
  27.           move.w    -2(a6),d0
  28.           unlk      a6
  29.           rts
  30.  
  31.